C     BLK10
      BLOCK DATA
      IMPLICIT REAL*8(A-H,O-Z)
      COMMON/ARBMWH/AMPARM(200),IAMPRM(10)
      COMMON/DPLTCG/PCSPRM(100),IPLTCS(20)
      COMMON/ELKDMP/OMKDMP(30),IOMKDM(10)
      COMMON/EXPAND/THRMPR(100),ITHRM(20)
      COMMON/ROTORS/AMWHPR(200),IAMWH(10)
      COMMON/IGIMBD/IGIM(3)
      COMMON/DMBICS/V1(6)
      COMMON/DMINTF/V2(8)
      COMMON/CGIMBD/V3(25)
      DATA AMPARM/200*0.0D0/,IAMPRM/10*0/
      DATA PCSPRM/100*0.0D0/,IPLTCS/20*0/
      DATA THRMPR/100*0.0D0/,ITHRM/20*0/
      DATA AMWHPR/200*0.0D0/,IAMWH/10*0/
      DATA IGIM/3*0/,V1/6*0.0D0/,V2/8*0.0D0/,V3/25*0.0D0/
      DATA OMKDMP/30*0.0D0/,IOMKDM/10*0/
      END
